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DISKSVMSMASTER: CPATCH.SRCIJPATIO.B32;1 (1) | 
MODULE PATIO vty pocaa EQ. 1 ! 1/0 ROUTINES FOR PATCH 


ADDRESSING _MODE (EXTERNAL = LONG RELATIVE 
NONEXTERNAL = LONG_RELATIVE), 


3 1 1 

; ‘ 0 5 

: 4 004 

3 5 005 ZF I 

; 6g 006 IDENT = *v04-000" | 
ii 0008 1 BEGIN 

3 9 R208 1 

7. a 010 1! 

3 Y B91 \ ‘gleaned 

3 fe e 

; ig $018 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY x | 
8 14 0014 1 !* DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. & 

; F Bate ! i* ALL RIGHTS RESERVED. * 

Ps ; * 

; 17 $017 1 !'* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

P4 18 0018 1 !* ONLY IN ACCORDANCE WITH THE TERMS F SUCH LICENSE AND WITH THE * 

; 19 0019 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

: 20 0020 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

H $) 0021 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

: ¢ 8) ; ; is TRANSFERRED. - 

; Si 0024 1 it THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; 25 0025 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

3 $8 b05$ : is CORPORATION. * 

Py 5 © 

; 28 0028 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

; $3 0029 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

; 0 0030 1 !« * 

ee 0031 1 !* * 

3 $8 Boss : Le A ARERR 

; 32 0034 1 !+¢4 

; 35 0035 1 ! FACILITY: PATCH 

ta 0036 1! 

; % it 44 } : ABSTRACT: THESE ROUTINES HANDLE THE I/O AND CLOSE ALL FILES. 

; 4 te : ENVIRONMENT: IT IS PART OF THE IMAGE FILE PATCH UTILTIY. 

: 4] 0041 1! AUTHOR: K.D. MORSE , CREATION DATE: 3-OCT-77 

: $ B266 1! 

; ¢§ 043 1 ! MODIFIED BY: 

: 4h 044 1 | | 
; €3 045 1! V03-004 MCNO161 Maria del C. Nasr 29-Mar-1984 
§ re Be$ ' } Pass correct FAB_ADDR to GETFILDSC. 

: 48 0048 1 | v03-003 MCNO157 Maria del C. Nasr 14-Feb-1984. 

:; «649 0049 1! We did a user file open of the input file, so deassign 

: 9 R230 : channel to close file. 

; 25 0082 1 i v03-002 MTROOI2 Mike Rhodes . 16-Aug-1982 | 
; 053 1! Modify file names to remove duplicate file name useage 
: ee bee ! between code and require files. | 
: 56 056 1 i v03-001 MTROOO7 Mike Rhodes 14-Jun-1982 

s ov 057 1! 


Use shared system messages. Affected modules include: | 
| 
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3 
PATI 18-Sep-1 4 706: VAX-11 Blis $3 =32 V4.0-742 
v04- 14-Sep- 1382 99:98:91 DISKSVMSMASTER: CPATCH.SRCIJPATIO.B32; (39 
: 8 28 1! DYNMEM.832, A ir tt PATCMD.B32, PATIHD.832, PATINT.B32 
; 2? 2 ; PATIO.B32, PATMAl.B32, PATMSG.MSG, PATWRT.B32, and PATSPA.B32. 
; 66) or 3! The shared messages are defined by DYNMEM.B32's invocation of 
= 062 1! SHRMSG. REQ and we simp} y Link against these symbols. They are 
; o7 +¢4 } declared as external Literals be low. 
, 6 065 1! v02-008 MTROOO1 Rhodes 14-0ct-1981 
; $8 B98 1! Modify routine PATSCLOSEF ILES to not worry about trying 
; 6 067 1! to delete virtual addresses that are mapped to the input 
; OB 93 : image file, since these are deleted during image rundown. 
3 0 OF 1! v02-007 PCG0001 Pete orge 02-FEB-1981 
3 4 te : Add require stotenent = 1B$:PATDEF .REQ 
: 7 oes 1 ! MODIFICATIONS: 
; «676 0074 1! 
: 75 0075 1! NO DATE PROGRAMMER PURPOSE 
$ 76 Bo78 1 i ee mmm 358 —__s i ee ee es ee es ms me i a a a ee: ee 
Se i 0077 1! 
; 78 0078 1! 01 14-FEB-78 K.D. MORSE ADD oy bE pap ot EXP1 
: #79 0079 1: PATSWRITE NAME, AND PATS$WRITE_INS. 
; 80 9080 i 02 7-MAR-78 K.D. MORSE ADD ROUTIRE PATSOUT _PAL_EXP AND 
; 8 008 1! Q3 5-APR-78 K.D. MORSE CONVERT TO NATIVE COMPILER. 
; 8 008 1! 06 5-MAY-7 K.D. MORSE ADD CALL TO PATSREDUCE_INS. 
3 84 0084 1! O05 13-JUN-7 K.D. MORSE ADD FAO COUNTS TO SIGNALS. 
4 85 0085 1! 06 15-JUN-78 K.D. MORSE ADD OUTPUT TO APPENDED PATCH 
3 86 0086 1! COMMAND TEXT BUFFERS. 
; or 0087 1! 
; = «6888 0088 1 !-- 
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6| 
(3) | 


; ig ° § ! GLOBAL ROUTINE PATSWRITEFILE (MSGSIZ,MSGADR,WRTRAB) :NOVALUE = ! WRITES FORMATTED MSG TO FILE : 
> 214 634 1 I++ : 
: 12 2 5 i FUNCTIONAL DESCRIPTION: ; 
; $19 637 ; This routine outputs formatted messages to files. If the file is the | : 
; 2 638 1! output command file, then the output is also written into the appended . 
; 2iy 639 1! patch command text buffers and only written to the command file if one | ; 
; 5s ory : s open for output. In case of error, an appropriate message is SIGNALed. : 
; 384 $otg : FORMAL PARAMETERS: : 
; $i ah 1} MSGSIZ = SIZE _IN BYTES OF THE MESSAGE TO BE OUTPUT : 
; $$? 2645 1! MSGADR - ADDRESS OF THE MESSAGE TO BE OUTPUT : 
: 558 $e7$ : WRTRAB = RAB OF THE FILE MESSAGE IS TO OUTPUT TO ; 
: 228 2648 1 | IMPLICIT INPUTS: | : 
; $§2 2649 1! : 
; 2350 2650 1! MESSAGE IS ALREADY FORMATTED, FILE IS ALREADY OPEN, AND | : 
; 231 2651 1! CHANNEL _IS ALREADY CONNECTED. : 
3 doe $026 ‘3 PATSGL_TXTFREE = Pointer to next free byte in last text block : 
} gas 2653 1! PAT$SGL_TXTLHD = Pointer to first block of command text : 
3 See $028 : PAT$SGL_TXTTAIL = Pointer to Last block of command text : 
8 €s0 2656 1 ! IMPLICIT OUTPUTS: : 
; aor 2657 1! : 
; 238 2658 1! THE MESSAGE IS WRITTEN TO THE FILE. IN CASE OF ERROR, AN : 
; $i0 e277 1 ERROR MESSAGE IS WRITTEN TO THE JOURNAL FILE AND 'SYSSERROR’. : 
: 241 2461 1 =! ROUTINE VALUE: : 
; 242 2662 1! : 
3; 243 2665 1 |! COMPLETION CODES: : 
; 244 2664 1! ; 
3; 245 2665 1! NONE : 
; 246 2666 1! : 
3; 247 2667 1 ! SIDE EFFECTS: 3 
; 248 2668 1! : 
: 249 2669 1! NONE 3 
; 250 2670 1! ; 
, gel 2671 1 !-- ; 
; @oe $076 1 : 
B gee 267 5 BEGIN : 
3; 254 2674 : 
; 255 sor? § MAP : 
; $25 ors WRTRAB : REF BLOCK C,BYTE); ! DEFINE AS VECTOR OF BYTES : 
; 258 3678 LOCAL : 
; 259 679 FAB_ADDR : REF BLOCKC,BYTE), ! ADDRESS OF FAB : 
3 60 680 NAM“BLK_ADDR : REF BLOCKL,BYTE); i ADDRESS OF NAME BLOCK ; 
; 62 6 : 14+ | : 
; 26 68 ! First check if this write is going to the command file. If so, add it | : 
: 264 684 ' to the text buffer. Text buffers are allocated one block at atime. : 
3 So? 685 ! The first longword of the block points the next block of text, zero indicates : 
; 266 686 i no next block. The commands are written into the buffer as ASCIC strings. ; 
3 344 687 ! They do NOT cross block boundaries. | 3 
; 268 688 leo 3 

| 
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| 
| 
; 269 689 3 IF (.WRTRAB EQL PATSGL_COMRAB) ; 
; 270 690 THEN ; 
s ery 691 BEGIN : 
: 37% $33 4 IF (.PATSGL_TXTFREE+.MSGSIZ+1 GTRU .PATSGL_TXTTAIL+A_PAGE) : 
; ar 695 3 THEN : 
> 274 694 4 BEGIN ; 
ee 4) 695 4 : 
: $78 o38 ? Ch "Allocate a new block of command text and update pointers. | : 
; 278 698 4 PATSGL WIXTFREE = PATSFREEZ((A_PAGE + 3)/4); ; 
; 279 2699 4 PATS$GL_ STXTTAILCTATSL NXTBLKY & .PATSGL_TXTFREE; : 
; goo 3700 4 PATS$GL_TXTTAIL = PATSGL. XTFREE; ; 
; 44 $70) 4 END TXTFREE = *PATSeL~ TXTFREE + TXTSC_SIZE; | : 
; 283 508 : CHSMOVE (MSG Sif -MSGADR GrePTac. PATSGL_TXTFREE, 1)); ; 
> 284 2704 3 PATSGL_ TXTEREE 6°= ; 
> 285 2705 3 PATSGL-TXTFREE = CHSP TRG SH ea: TXTFREE, .MSGSIZ+1); ; 
; 286 2706 3 IF (.PATSGL_FLAGS AND PATSM_COMMAND) EQL 0 | ; 
: 287 2707 3 THEN ; 
; 288 2708 3 RETURN; ; 
; 289 2709 2 END; : 
; 290 e710 2 : 
3 (ef) 2711 § !e+ : 
: 398 271g @ | SET UP THE RAB FOR OUTPUT. | 
3 294 2714 s URTRABLRABSW_ RSZJ=.MSGSI7Z; ! SET SIZE OF MSG ; 
: 295 2715 2 WRTRABLRABSL_RBF J=.MSGADR; ! SET MESSAGE ADDRESS ’ 
; 296 2716 2 PATSGL_ERRCOBE = S$PUT(RAB=.WRTRAB) ; ! OUTPUT MESSAGE ; 
: 297 2717 2 IF NOT .PATSGL_ERRCODE i IF ERROR, 
; 298 2718 ¢ THEN ! OUTPUT AN 3 
; 299 2719 BEGIN ; 
; 300 2720 3 FAB -ADDRs.. URTRABTRABSL FAB); ! GET ADDRESS OF FAB 
; 301 2721 3 NAM” BLK_ADDR=.FAB_ADDREF ABSL_NAM]; ! GET_ADDRESS OF NAME B ; 
: $08 sis¢ ; SIGRAL (PATS, URITEERR, 1,GETFICOSC(.FAB_ADDR) ,.WRTRABCRABSL_STS],.WRTRABCRABSL _ sta): ! APPROPRIAT : 
; 304 2724 1 END; ! END OF PATSWRITEFILE | : 
-TITLE PATIO | ; 
DENT \V04-000\ | 3 
-PSECT _PATSPLIT,NOWRT,NOEXE,0 : 
27 4&4 41 21 27 05 00000 P.AAA: .ASCII <S>\"!AD"\ ree : 
D 2C 02 00006 P.AAB: .ASCII <2>\,-\ 3 | : 
4C 58 21 58 SE 05 00009 P.AAC: .ASCII <5>\*x! ; : 
4C 58 21 58 SE 3A 4C 58 21 58 5E OB OOOOF P.AAD: -ASCII <T1>\*X!XL:*XINLA : 3 
4c 58 3! 58 SE 2B 44 41 21 99 9018 P.AAE: ASCII <9>\!AD+*X!XL\ ; : 
28 44 41 21 3A 4C 58 21 58 SE 28 46 ‘1 1 i 06 P.AAF: ASCII] <19>\!AD#*X!XL: !AD#*X!XLA\ ; | 
27 44 «41 5 * 4 9 9 P.AAG: .ASCII <5>\"!AD"\ ; 
43 41 21 F P.AAH: ASCII <3>\!AC\ ; 
53 41 «21 8 0 ¢ P.AAL: .ASCII <3>\!AS\ : 
54 49 58 45 04 00047 P.AAJ: .ASCII <4>\EXIT\ ; 
ISESC_SIZE== 20 
TXT$C"SIZE== 4 | 


if “138e 99:98:93 OTe SuwGmaStensceaton. Shcapario.a324°%° 3) 


STG 
RAN_STG= 


P. 
-EXTRN PATSFIND_VAL, PATSFAO_PUT 
-EXTRN PATSFREEZ, PATS$REDUCE~INS 
-EXTRN GETFILDSC, PATSGL_CHANUM 
EXT L_SYMTBPTR 


-EXTRN PATS$GL~ =SYRHEAD . PATSGL_PAL_LHD 
-EXTRN PATS$GL=L 
eEXTRN PATSGL = LASTERT. PATSGL_SEMAN1 


-EXTRN PATSGL = COMRAB . PATSGL_ISVADBR 

-EXTRN PATSGL~ TEXPANDVA 

~EXTRN PATSGL-ERRCODE, PATSGL_FLAGS 
NBK, PATS 


PAT PAT$_OPENOUT 
"EXTRN PAT$~ “READERR PATS. SYSERROR 
“EXTRN PATS gHRETEERR, SYSSP 

«WEAK ACCESS_CHEC 

.PSECT _PATSCODE,NOWRT,2 


07FC 00000 -ENTRY PATSWRITEFILE, Save R2,R3,R4,R5,R6,R7,R8,- 


SA 900000006 EF 9€ 99002 MOVAB PATSGL_ERRCODE, R10 ; 
59 000000006 EF 9E 00009 MOVAB PATSGL-TXTTAIL. ; 

38 000000006 EF H 90019 MOVAB PATSGL~ “TXTFREE. RB : | 

5 0C AC D0 0001 MOVL R7 : 2689 | 
50 000000006 Ef 9€ 0001 MOVAB PATSGL COMRAB, RO ; 
50 7 D1 000 CMPL ; 
‘a Ne 99 BNEG ; 

bb 04 ac C1 00 ADDL3 MSGSIZ, PATSGL_TXTFREE, RO > 2692 
0 06 0002C INCL ; 
69 00000200 BF C1 000 ADDL3 #512, PATSGL_TXTTAIL, R1 ; 
1 0 D1 000 CMPL = RO, RI ; 
18 1B 00039 BLEQU 1 ; 

7E 80 8F 9A 00038 MOV7BL #128, -(SP) > 2698 


| 


F 
PATIO 16 984 00:06:01 VAX-11 Bliss-32 V4.0-742 9 
v04-000 14 -1382 99:96:91 DISKSVMSMASTER: CPATCH. SRCJPATIO.B32; 429 * 3), 
000000006 EF 01 FB 03F CALLS #1, PATSEREEZ F 
68 9 D O46 MOVL RO. PATSGL FREE : 
00 89 68 DO 0004 MOVL  PATSG TatPREE, aPATSGL TXTTAIL + 2699. 
69 68 DO 00040 MOVL PATSere TATERE PATSGL_TXTTAIL + 2700. 
68 4 ¢ 090 ADDL2 #4, PATS$GL_TXTFREE + 2701 
6 ry 0 53 1$ MOVL.  PATSGL_TXTFREE, R t 2703. 
01 Ab 08 ac 04 AC 056 MOVC3 MSGSIZ> aASCADR, 1(R6) : 
66 04 AC 90 0005D MOVB. MSGSIZ, (R6) t 2704 
50 68 04 aC C1 00061 ADDL3 MSGSIZ, PATSGL TXTEREE. RO + 2705 
£2 01 AO OE 0066 MOVAB 1(RO), PATSGL_TXTFREE : 
3F 000000006 EF E 006A BLBC PATS$GL_FLAGS,~3$ + 2706 
32 A? 04 AC 80 900 1 2$ MOVW  MSGSIZ> 34(R?) + 2714 
A7 8 AC DO 00076 MOVL MSGADR, 40(R7) + 2715 
57 DD 00078 PUSHL R7 : 2716 
000000006 00 01 FB 0007D CALLS #1, SYS$PUT F 
6A 0 DO 00084 MOVL RO, PAT$GL_ERRCODE ; 
66 6A £8 00087 BLBS  PATS$GL -ERRCODE , 3$ : 2717 
50 3c = A7-—s«é@Os«OOOBA MOVL _60(R7)7 FAB_ADDR + 2720 
51 28 Ad D0 O008E MOVL Sour FAB -ADDRY, NAM_BLK_ADDR + 2721 
7E 08 A? 7D 0009 MOVO  8(R7), : 2722 
50 DD 00096 PUSHL FAB_ AboR’> : 
000000006 _ EF 01 FB 00098 CALLS #1, GETFILDSC ; 
50 DD 0009F PUSHL RO é 
01 DD OOO0A1 PUSHL #1 3 
000000006 8F DD 000A3 PUSHL aPATS WRITEERR : 
000000006 00 05 FB 000A9 CALLS #5, LYIBSSIGNAL : 
04 00080 3$ RET + 2724 
; Routine Size: 177 bytes, Routine Base: _PATSCODE + 0000 
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1$-$e9-1984 00: 06:0 


GLOBAL ROUTINE PATSWRITE_EXP1 (SEMSP) : NOVALUE = 
\e+ 


i FUNCTIONAL DESCRIPTION: 


DOES NOT PROMPT. 
! FORMAL PARAMETERS: 

SEMSP = PARSE STACK OFFSET TO COMMAND VERB TOKEN 
IMPLICIT INPUTS: 


IMPLICIT OUTPUTS: 


THE EXPRESSION IS WRITTEN TO THE COMMAND FILE. 
ERROR MESSAGE IS WRITTEN TO THE JOURNAL FILE AND 


ROUTINE VALUE: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
PATSCP_OUT_STR AND PATS$GL_BUF_SIZ ARE DESTROYED. 


BEGIN 


LITERAL 
HYPHEN = %X'2D'; 


LOCAL 
OUTPUT _BUFFER : BLOCKCTTY_OUT_WIDTH, BYTE), 
POINTER; 


lee 


il INITIALIZE THE POINTER TO THE FIRST ARGUMENT. 


POINTER = .PATSGL_HEAD_L 
IF (.PATSGL SERAMTS EOERSP) EQL EXAMINE_TOKEN) AND 
(POINTER EQLA 


THIS ROUTINE WRITES OUT A series OF ld Sl ey TO_THE COMMAND FILE. 
THE tea 82) ARE TAKEN FROM ys COMMAND ARGUMENT LIST. IF THE 
CURRENT MODE IS ASCII, THEN TH HE A RGUMENTS ARE WRITTEN AS ASCII 
CHARACTERS WITHIN QUOTES. ONE EXPRESSION IS WRITTEN PER LINE. 

IF THE COMMAND IS THE 


“EXAMINE'’ COMMAND, THEN THE EXPRESSIONS must 
BE FOLLOWED BY A CONTINUATION CHARACTER AS THE ‘EXAMINE’ COMMAN 


THE ARGUMENT LIST FOR THE COMMAND POINTED TO BY PATS$GL_HEAD_LST. 


IN CASE OF ERROR, AN 
"SYSSERROR'. 


! CONTINUATION CHARACTER (HYPHEN) 


! OUTPUT BUFFER 
! POINTER TO CURRENT ARGUMENT 


@ 
—_ 
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- THE EXPRESSION AS AN ASC 


WHILE . «POINTER NEQA 0 


ETURN; 


H ge 
1eSep-198e 12:58:95 DISKSUMSMASTER: PATCH 


BEGIN 
PATSGL_BUF -3 


IZ = 0; 
PATSCB OUT"STR = CASPTR(OUTPUT BUFFER, 0); 
PATSOUT_PAC_EXP(.PATS$GL_LAST_ LOC, 0); 
PATSURITEF FICE(.PATS$GL “BOF _SIZ, OUTPUT_BUFFER, PATSGL_COMRAB) ; 


= S| 


N HE CURR ve MODE IS ASCII, WRITE 
G CONTAINED WIT 


WRITING OUT EACH EXPRESSIO 
I] STRIN HIN QUOTES. 


BEGIN 
PAT$GL_BUF _SIZ = 0; 
ibe OUT“STR = CHSPTR(OUTPU UT_BUFFER, 0); 


Vek -PAT$SGB_MOD_PTRCMODE ASCII) 


PATSFAO_PUT(ASC_STG, .PATS$GB_MOD PTREMODE _LENGTH], 
LIST_ELEM_EXP1(. POINTER) 


| 
| 
-EXP2(. POINTER) EQL 0) O 
| 


ELSE 
IF (.LISTLELEM 
reg’ eee et ELEM_EXP1(.POINTER) EQL LIST ELEM_EXP2(. POINTER) ) 
cLse PATSOUT_PAL_EXP(.LIST_ELEM_EXP1(.POINTER), 0) 


PATSOUT_PAL_EXP(. LEST. ~ELEM. EXP1(. POINTER) 
IF (. PATSGL_SEMAN1C.SEMSP] EQL EXAMINE_TOKEN 
col LIST_ECEM_ FLINK(.POINTER) NEQA 0)~ 


PATSFAO_PUT(COM_HYP_S 
PATSWRITEFILE(. PATS$GL_BOF er). CO TPUT BUFFER, PATSGL_COMRAB) ; 
POIN TER = .LIST _ELEM_ aietiie POINTER); 


bX EXP2( ,POINTER) ); 


! END OF PATSWRITE_EXP1 


07FC 00000 ENTRY PATSWRITE. EXP1, Save R2,R3,R4,R5,R6,R7,R8.- ; 2725 

° | 

5A 000000006 EF 9E 00002 MOVAB PAT$FAO_PUT, R10 : | 
44 FF4 CF 9E 00009 MOVAB PATSWRITEFILE, R9 3 

8 000000006 EF 9 0000 MOVAB PATS$GL_COMRAB. : | 

57 000 Vv EF 9€ 0001 MOVAB PATSOUT PAL_EXP, R7 : | 

26 00 00G EF 9E 001¢ MOVAB PATSCP_OUT STR, R : | 

00000006 EF 9E 00 MOVAB PATSGL“SE RS : 

4 000000006 EF 9€ 000¢A MOVAB PATSGL~BUF SIZ, R4 : | 

FF7C =6CE (SE 00031 MOVAB -132(SP), SP : 

3 000000006 EF D 9 MOVL PATSGL_HEAD_LST, POINTER : 3778 

04 AC D D MOVL SEMSP,"R ; 2779 | 

09 6543 D1 041 CMPL § PATSGL_SEMANICR3], #9 : | 

1E 12 00045 1$ : | 

| 


PATI 
V04- 


; Routine Size: 


198 bytes, 


Routine Base: 


52 
1A 
64 
66 ge 
E 
000000006 EF 
67 ¢ 
04 AE 
4 
69 3 
é 
C 
64 
66 6E 
50 000000006 _ EF 
12 04 AO 
04 Ae 
7E 01 Ad 
00000000° Fe 
6A 3 
18 
50 08 A2 
06 
50 04 Ad 
04 
7E 
02 
50 
04 =A 
67 0 
09 654 
0D 
62 
09 
00000000" EF 
6A 2} 
8 
04 AE 
64 
69 03 
52 oe 
A 
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4 VAX-11 Bliss-32 V4.0 
2 93:98:93 

TSTL POINTER 

BNEQ 1 

CLRL PATSGL_BUF 

MOVAB OUTPUT pur pa? PATSCP_OUT_STR 
PUSHL PATSGL AST_LOC 
CALLS , PATSOUT~PAL_EXP 
PUSHL 4a 

PUSHAB OUTPUT BUFFER 

PUSHL PATSGL~ 

CALLS #3 Sh TSURTSETILE 
TSTL POINTER 

BEQL 

CLRL PATSGL_B 

MOVAB OUTPUT “BUFFER: PATSCP. OUT_STR 
MOVL § PATS$GB~MOD_PTR, 

BLBC 4(RO), 28 ~ 

PUSHAB 4(POINTER) 

MOVZBL 1(RO), -(SP) 

PUSHAB ASC. S16 

CALLS #3, PATS$FAO_PUT 

BRB 6$ 

MOVL (POINTER), RO 

BEQL a 

CMPL 4(POINTER), RO 

BNEQ 4$ 

CLRL -(SP) 

BRB 5$ 

PUSHL RO 

PUSHL 4 (POINTER) 

CALLS #2, PATSOUT PAL EXP 
CMPL PATSGL SEMAN CRS , a9 
BNEQ 7$ 

TSTL (POINTER) 

BEQL 7$ 

PUSHAB COM_HYP_STG 

CALLS #1, PATSFAO_PUT 
PUSHL R8- 

PUSHAB OUTPUT -BUFFER 

PUSHL PATSGL BUF SIZ 
CALLS PATSW arrerl ILE 
MOVL (P61 INTER) POINTER 
BRB 

RET 


742 
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PATIO se -1984 VAX-11 tH s-32 V4.0-742 ge 13 

v04-000 1b- £epn 1 8be 8058s gt NS MGMASTERSCPATCH SkcJPATIO.B32;1°°° (33 

40 : GLOBAL ROUTINE PATSWRITE_NAME (SEMSP) : NOVALUE = | 

: 604 j 1 !e¢ 

; 405 Bes | FUNCTIONAL DESCRIPTION: 

; 409 8 5 1i THIS ROUTINE WRITES OUT A SERIES OF NAMES TO THE COMMAND FILE. 

: 408 gi) THE NAMES ARE TAKEN FROM THE COMMAND ARGUMENT LIST. ONE NAME IS 

: 409 B27 1: WRITTEN PER LINE. 

: 410 828 1 | 

: ai} 8 3 |_| FORMAL PARAMETERS: 

: ai8 1 SEMSP = OFFSET TO VERB TOKEN ON PARSE STACK 

: 419 é 5 | IMPLICIT INPUTS: 

: ‘7 835 THE COMMAND ARGUMENT LIST POINTED TO BY PATSGL_HEAD_LST. 

: 419 637 ; IMPLICIT OUTPUTS: 

: 421 2839 1 | THE NAME IS WRITTEN TO THE COMMAND FILE. IN CASE OF ERROR, AN 

: 43¢ 840 ERROR MESSAGE IS WRITTEN TO THE JOURNAL FILE AND ‘SYSSERROR’. 

; 434 28 ROUTINE VALUE: 

> 426 spez 1 i NONE 

> 427 2845 1 | 

: 428 B46 1 | COMPLETION CODES: 

: 429 B47 1 | 

: tf gb 1 none 

: 432 2850 1 | SIDE EFFECTS: 

: 43 2851 1 | 

> 434 85¢ 1 | PATSCP_OUT_STR AND PATSGL_BUF_SIZ ARE DESTROYED. 

: te ger i 

: $e pale 

oe ae 

+ 461 859 C PTR : REF MC_RECORD '! POINTER TO MODULE CHAIN ENTRY 

; 44g 860 OUTPUT BUFFER :~VECTORCTTY_OUT_WIDTH, BYTE), i OUTPUT BU 

> bb 861 INTER; i POINTER TO CURRENT NAME 

: aud 86g Pac 

; 446 at i INITIALIZE THE POINTER TO THE FIRST ARGUMENT. 

: 648 866 POINTER = .PATSGL_HEAD_LST; | 

tus Ber | 

> 451 869 LOOP, WRITING OUT EACH EXPRESSION. IF THE CURRENT MODE IS ASCII, WRITE | 

; 43¢ 2870 The EXPRESSION AS AN ASCII STRING CONTAINED WITHIN QUOTES. | 

: 454 87 OnILe .POINTER NEQA 0 | 

; 455 7 po 

3; 456 74 BEGI 

: 457 75 PATSGL _BUF_SIZ = 0; | 

: 458 7% PATSCPOUT~STR = CHSPTR(OUTPUT_BUFFER, 0); | 
j 
| 
| 


~N 
~ 
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16-Sep-1984 00:06: VAX-11 Bliss-32 V4.0-742 e 14 P 

13-808=13Re 99:96:91 DISKSVMSMASTER: CPATCH. SRCJPATIO.B32; 1 429 (5) 
IF_.PATSGL_CONTEXTCMODULE_BIT) : 
THEN ; 
BEGIN, : 
-LIST_ELEM_EXP1(. POINTER); : 
PATSFAO_ PUT(MOB_STG> MC_PTRLMC_NAME_CSJ); ; 
ELSE : 
PATSFAO_PUT(NAM_STG, .LIST_ELEM EXP1(.POINTER)); 3 
PATSWRITEFILE(.PATSGL_BOF_S{Z, OUTPUT BOFFER, PATSGL_COMRAB); ; 
IF ,PATSGL L_SEMAN1C.SEMSPJ~EQL DEF INE_TOKEN ; 
Sin 3 
PAT$GL_BUF_SIZ = 0; ; 
PATSCP-OUT"STR = CHSPTR (OUTPUT BUFFER 0); : 
PATSOUT_PAC_EXP(.LIST_ELEM_EXP2(.POINTER), 0); : 
Pas OUnb Ter sces, .PATS$GL~ “BUF Mett OUTPUT "BUFFER. PATSGL_COMRAB) ; : 
POINTER = .LIST_ELEM_FLINK(.POINTER); ; 
RETURN; 3 
END; ! END OF PATSWRITE_NAME : 
.EXTRN PATSGL_RST_BEGN : 
01FC 00000 .ENTRY PATSWRITE NAME. Save R2,R3.R4,R5,R6,R7.R8  ; 2820 : 
58 FE83 CF 9E 0000¢ MOVAB PATSURITETILE Re ; $ 
57 000000006 EF 9E 0000 MOVAB PATS$GL_COMR ; : 
56 000000006 EF 9E 90006 MOVAB PATSCP~OUT_ AB Rab ; ; 
55 000000006 EF 9€ 0001 MOVAB PATSGL= BUF~SIZ, ; : 
3E FF7C CE 9E O001C MOVAB ; : 
53 000000006 EF DO 00021 MOVL PATSGL -HEAD _LST, POINTER + 2866 : 
54 04 AC 00 00028 MOVL SE EMSP, ~R4 : 2886 : 
53 D5 0002C 18: TSTL INTER + 2872 ; 
68 13 909 E BEQL cS. ; : 
65 D4 00030 CLRL PATSGL_BUF : 2875 : 
6 6E 3 99 é MOVAB OUTPUT ~BUFFER- PATSCP_OUT_STR : 2876 : 
000000006 EF 9 99 TSTB + PATSGL=CONTEXT : 2877 : 
17 3 00038 BGEQ $ : F 
52 04 A3 dO 00030 MOVL. 4(POINTER), ; 2880 : 
50 000000006 EF cl 041 ADDL3. PATSGL_RST "BEER. "Re _PTR, RO : 2881 : 
o¢ AO OF 49 PUSHAB 12(RO)~ : : 
00000000° ai oF af PUSHAB MOD_STG : : 
9 11 9 5 BRB 3$ : : 
06 A3 bb 9 4 2%: PUSHL 4 (POINTER) : 2884 : 
000000CJ' EF 9F 00057 PUSHAB NAM_STG ; : 
000000006 EF : FB 0005D 3$: CALLS ae. “PATSFAO_PUT ; 3 
po 64 PUSHL R ; 2885 3 
04 AE OF 66 PUSHAB OUTPUT -BUFFER ; : 
6 DD 00069 PUSHL PATSGL™BUF SIZ ; : 
68 FB 9068 CALLS #3 Si TeURT? tera : : 
5 000000006EF 44 D1 0 $F cMPL PATSGL_SEMANICR4], #5 > 2886 : 
68 p4 Sore CLRL_ PATSGL_BUF > 2889 : 
66 6E 9E OOO7A MOVAB OUTPUT ~BURFER- PATSCP_OUT_STR : 2890 : 


4 
PATIO 18-Sep-1984 00:06:01 VAX=11 BLiss-32 v6.0-742 Page 15 
04-000 Vereen 1984 Toseoes | PERKSUMCMASTERCCEAT ON SACIPATIO.B32;10°" (53 
7E D4 0007D CLRL=(SP) : 2891 
08 A’ DD 0007F PUSHL (POINTER) : ; 
00000000V EF 0 FB 00082 CALLS #2, PATSOUT_PAL_EXP : 
pp PUSHER : 2892 
04 AE 9F 0008B PUSHAB OUTPUT_BUFFER 
65 OD PUSHL PATSGL-BUF $12 : 
68 FB CALLS #3, PATSWRITEFILE ; 
63 D 93 4$ MOVL (POINTER), POINTER + 2894 ; 
94 11 00096 BRB. t«dS : 5872 
04 00098 5$ RET : 5898 


; Routine Size: 153 bytes, Routine Base: _PATSCODE + 0177 


mM 4 
16-Sep-1984 00:06: VAX=11 Bliss-32 V4.0-742 Page 16 
127868713 4 99:98:91 DISKSVMSMASTER:CPATCH.SRCIPATIO.B32:1/ > (6) 
482 899 GLOBAL ROUTINE PATS$WRITE_INS (SEMSP) : NOVALUE = ; 
: 4B $01 1 144 : 
: 4 5 206 i FUNCTIONAL DESCRIPTION: 
: rk 904 1: THIS ROUTINE WRITES OUT THE ARGUMENTS TO THE COMMAND FILE FOR THE : 
: 488 905 1! FOLLOWING COMMAND VERBS, "DEPOSIT", INSERT’, "'REPLACE’', AND : 
: 489 206 i ‘VERIFY’. THE ARGUMENTS CONSIST Of AN ADDRESS, FOLLOWED BY ONE OR Two ; 
: 490 907 1: LISTS OF INSTRUCTIONS (DEPENDING UPON THE COMMAND). : 
: 491 908 1: THE INSTRUCTIONS ARE TAKEN FROM THE COMMAND ARGUMENT LIST. : 
: 49 909 ; ONE INSTRUCTION IS WRITTEN PER LINE. ; 
: 494 gi) FORMAL PARAMETERS: 
: 496 318 SEMSP = OFFSET ONTO PARSE STACK FOR COMMAND VERB TOKEN 
: 498 915 1 | IMPLICIT INPUTS: ; 
: 499 at 1: : 
: 500 291 1) THE COMMAND ARGUMENT LIST POINTED TO BY PATS$GL_HEAD_LST. : 
; 201 318 THE PARSE STACK, PATSGL_SEMAN1, HOLDS THE COMMAND VERB. : 
; 508 3320 ; IMPLICIT OUTPUTS: 
: 505 2922 1: THE COMMAND ARGUMENTS ARE WRITTEN TO THE COMMAND FILE. IN CASE OF 
; 306 903 ; ERROR, AN ERROR MESSAGE IS WRITTEN TO THE JOURNAL FILE AND ‘SYSSERROR’. 
: 508 925 1! ROUTINE VALUE: 
: 509 926 1! 
: 510 2927 1! NONE 
>: 511 928 1! 
; 212 2929 1 | COMPLETION CODES: 
> 54 2930 1 | 
: 514 2931 1! NONE 
: 515 2936 1: 
: 516 2933 1 | SIDE EFFECTS: 
: 517 2934 1 | 
: 518 935 1! PATSCP_OUT_STR AND PATSGL_BUF_SIZ ARE DESTROYED. 
: 519 936 1! 
: 520 937 1 i-- 
: 521 938 1 
: 282 939 2 BEGIN 
; 38 940 
: 524 941 2 LOCAL 
; 225 943 EDITED_INS_DESC : BLOCKE 12 BYTE. ! DESCRIPTOR FOR EDITED INSTRUCTIONS 
; 526 94 EDITED-INS-BUF : VECTORCTTY OUT_WIDTH ByTEI, i BUFFER FOR EDITED INSTRUCTION 
: 527 944 OUTPUT“BUFFER : VECTORLTTY_OUT_QIDTH, BYTE), i OUTPUT BUFFER 
; $35 348 POINTER; i POINTER TO CURRENT NAME 
; 3 0 94 lee 
; 231 948 | INITIALIZE THE POINTER TO THE FIRST ARGUMENT. 
; 338 950 @ POINTER = .PATSGL_HEAD_LST; | 
g 34 951 
3 35 938 'e¢ 
; 933 | FIRST WRITE OUT THE LOCATION ADDRESS. THIS IS ALWAYS THE FIRST ARGUMENT. 
: 3 955 2 PATS$GL_BUF_SIZ = 0; 
| 


N <i 
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12: $e: 1382 9: 98: ey DISKSVMSMASTER:CPATCH.SRCIPATIO.B32:1 >, (6) 

: 539 9 PATSCP_OUT_STR = CHSPTR(OUTPUT_BUFFER, 0); 

; 540 9 $ PATSOUT PAC _EXP(. LIST ELEM EXPT( POINTER), 0); 

: 541 9 : PATSWRITEFICE(.PATSGL-BUF_SIZ, OUTPUT_BUFFER, PATSGL_COMRAB); 

a: a5 8 a 

; ad $81 uN NOW LOOP, WRITING OUT EACH ARGUMENT. 

; 246 ses WHILE (POINTER = .LIST_ELEM_FLINK(.POINTER)) NEQA 0 

: 548 965 

: 549 96 PATSOL_BU F_SIZ = 0; 

: 230 96 PATSCB” Four” “STR = CHSPTRCOUTPUT UFFER, 0); 

; 231 268 IF Pr GB~MOD_PTRLMODE_INSTR 

: 238 970 4 BEGIN 

: 554 971 4 EDITED_INS_DESCCDSC$W_LENGTH) = 0; 

: 555 976 4 EDITED-INS-DESCLOSCS$A-POINTER] = EDITED_INS BUF; 

: 556 973 4 EDITED-INS-DESCLOSCSW-MAXLEN] = TTY OUT-WIDTH; 

: 557 974 4 PATSREDUCE-INS(.LIST_ELEM_EXP1(. POINTER), EDITED_INS_DESC); 

: 558 975 4 PAT$SGL_BUF-SIZ = 0; 

: 559 96 4 PAT$CP-OUT~STR = CHSPTR(OUTPUT BUFFER, 0); 

; 360 907 4 PATSFAD_PUTCINS, STG, -EDITED_INS_DESCCDSC$W_LENGTH], EDITED_INS_BUF); 

: 56 979 ELSE 

; 508 980 : IF .PAT$SGB_MOD_PTRCMODE_ASCII) 

: 565 98 PATSFAO_PUT(ASC_STG, .PAT$GB_MOD_PTRCMODE_LENGTH], 

; 266 2988 rp LIST_ELEM_EXP1(. POINTER) )~ 

: 568 2985 3 PATSOUT_PAL EXPC. hist _ELEM_EXP1(.POINTER), 0); 

> 569 2986 PATSWRITEFILE(; PATSGL_BOF_STZ, OUTPUT-BUFFER, PATSGL_COMRAB) ; 

; 2/9 sone IF .PATSGL _SEMANIL. SEMSP)-EQL REPLACES ~TOKEN 

i $7@ a If «LIST ELEM_EXP2(.POINTER) EQL EXIT_TOKEN 

; 374 991 te PATSWRITEFILE(.EXIT_CMDCOJ, EXIT_CMDC1], PATSGL_COMRAB); 

; a7 ; ; RETURN; 

: 578 1 END; ! END OF PATSWRITE_INS 


O3FC 9000 .ENTRY PATSWRITE INS save R2,R3,R4,R5,R6,R7.RB.R9 ; 2899 
59 00000000v EF 9E 000 g MOVAB PATSOUT 1 PAL : 
3 FD CF 9E 999 MOVAB PATSWRITEF og F 
0G EF 9E 000 : MOVAB PATSGL TCOM tg R7 : 
g G EF 9€ 0001 MOVAB —PATSCP-OUT STR, R6 ; 
EF 9€ af MOVAB R : 
4 000000006 EF 9E MOVAB PaTSeL BUF SIZ, R4 : 
FEEC CE 3 A MOVAB =276(S ; 
000000006 EF D F MOVL = PATSGL -HEAD LST, POINTER : 2950 
4 D4 0 CLRL = PAT$uL > 2955 
66 gE E MOVAB DUTPUT ~BUFFER PATSCP_OUT_STR > 2956 
E D4 00038 CLRL =(SP) : 2957 


yin 
ibs ep-19 VAX=-11 Bliss-32 V4.0-742 Page 18 PA 
1-88-1984 19:59:95 DISKSUMSMASTERSEPATCH. SRC2PATIO.B32:1°% (os. vO 
04 A2 DD 00030 PUSHL 4 POINTER) P | : 
69 Q FB 04 CALLS He. PATSOUT_PAL_EXP : : 
bb 4 PUSHL R : 2958) : 
04 AE F 0004 PUSHAB OUTPUT -BUFFER : | : 
é DD 0 4 PUSHL PATS$GL~BUF SIZ ; : 
68 3 OF 4A CALLS #3, PATSURTTEFILE : : 
04 AC D0 00040 MOVL R3 + 2987 : 
52 6 DO 00051 1$: MOVL (POINTER), POINTER + 2963 : 
1 12 00054 BNEQ 2$ : ; 
04 0046 RET : : 
64 D4 00057 2$ CLRL. PATS$GL_BUF_SIZ + 296 : 
66 6E H b0089 MOVAB OUTPUT-BUFFER, PATSCP_OUT_STR + 296 : 
0 000000096 EF DO 00 5¢ OVL  PAT$GB"MOD_PTR, RO + 2968 : 
2c 03 AO £9 0006 BLBC 3(RO),~3$ : : 
FL AD B4 00067 CLRW EDITED_INS_DESC + 2971 : 
FB AD 0084 a3 9E 0006A MOVAB EDITED INS"BUF, EDITED_INS_DESC+4 + 297 : 
FC AD 84 &8F 9B 0070 MOVZBW #132, EDITED_INS_DESC+8 : 297 : 
F4 AD 9F 0007 PUSHAB EDITED_INS_DESC + 2974 ; 
04 A2 dD BRO re PUSHL 4(POINTER) : ; 
000000006 EF 02 FB 0007B CALLS #2, PATSREDUCE_INS : : 
64 D4 00082 CLRL_ PATSGL_BUF SIZ + 2975 ; 
66 6E 9E 00084 OVAB OUTPUTBUFFER, PATS$CP_OUT_STR : 2976 ; 
0084 CE 9F 00087 PUSHAB EDITED"INS_BUF + 2977 
7E F4 AD 3C 0008B MOVZWL EDITED-INS~DESC, =(SP) : 
55 DD 0008F PUSHL R5 ; 
0— 11 00091 BRB 4$ : 
13 04 AO £9 00093 3$: BLBC 4(RO), 5$ : 2980 
04 A2 SF 00097 PUSHAB 4(POINTER) + 2983 
7E 01 AO 9A OO09A MOVZBL 1(RO), -(SP) : 
C7 AS 9F O009E PUSH ASC Sf6 + 2982 
000000006 _ EF 03 FB OOOA1 4$: CALLS #3, PATS$FAO_PUT > 2983 
08 11 OOOA8 BRB 63 : 
7E D4 OOOAA 5$: CLRL =(SP) > 2985 
04 A2 DD OOOAC PUSHL 4 (POINTER) : 
69 02 FB OOOAF CALLS We, PATSOUT_PAL_EXP : 
57? DD O000B2 6$: PUSHL R : 2986 
04 AE 9F 000B4 PUSHAB OUTPUT BUFFER : 
64 DD 00087 PUSHL PATS$GL~BUF S$ : 
48 03 FB 000B9 CALLS #3, PATSWRT FILE : 
OD O0000000GEF43 D1 OO0BC CMPL —s PATSGL Teeth #13 : 2987 
8B 12 000C4 BNEQ si : 
OA 08 A2 D1 00066 CMPL 8(POINTER), #10 > 2989 
é 12 OOOCA BNEQ -1$ : 
pp oocc PUSHL R7 : 2991 
OF AS OF OCF PUSHAB EXIT_CMD+1 : 
7E OE a3 9a 0000 MOVZBL EXIT™CMD, -(SP) : 
68 : FB 000D5 CALLS #3, PATSWRITEFILE : 
FF76 3 0008 BRW 1$ : 2963 
4 00008 RET > 2995 


; Routine Size: 220 bytes, Routine Base: _PATSCODE + 0210 
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GLOBAL ROUTINE PATSOUT_PAL_EXP (EXPR1, EXPR2) : NOVALUE = 
14+ 


i FUNCTIONAL DESCRIPTION: 


THIS ROUTINE FORMATS EXPRESSIONS FOR OUTPUT TO THE COMMAND FILE. 
IF AN EXPRESSION FALLS WITHIN A PATCH AREA, THEN THE EXPRESSION 
ee alt gle AS A Het NAME PLUS OFFSET. OTHERWISE IT MAY 
BE WRITTEN N ABSOLUTE VALUE. THE PATCH wy LIST (PAL) IS 
SEARCHED TO ‘DETERMINE. TF THE EXPRESSION FALLS WITHIN A PATCH AREA. 
IF AN_EXPRESSION ss a PROVIDED AS_INPUT (1. ms , EXPR2 IS NOT 0), 
THEN THE UPPER LIMIT OF THE RANGE IS TREATED IN THE SAME MANNER AS 


THE LOWER LIMIT WAS TREATED. 
FORMAL PARAMETERS: 
EXPR1 = EXPRESSION TO OUTPUT (IF EXPR2 NEQ 0, THEN LOWER LIMIT OF RANGE) 
EXPR2 = IF NEQ 0, THEN LOWER LIMIT OF RAN 
IF EQL 0, THEN INDICATES SINGLE EXPRESSION NOT RANGE 
IMPLICIT INPUTS: 
THE PATCH AREA L 
THE USER DEFINED 
PATSGL_BUF_SIZ A 
IMPLICIT OUTPUTS: 


THE EXPRESSION IS 
PATSGL_BUF _SIZ AND P 


ROUTINE VALUE: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
PATSCP_OUT_STR AND PATSGL_BUF_SIZ ARE UPDATED TO INCLUDE THE EXPRESSION. 


] 
N 


ST (PAL). 
SYMBOL TABLE. 
D PATSCP_OUT_STR MUST BE INITIALIZED. 


WRIT 
A 


3. INTO hag OUTPUT BUFFER SPECIFIED BY 


P_OUT_ST 


URRENT PAL ENTRY 


TEMP_PTR : REF BLOCKC,BYTE), ! POINT 
; ! POINT YMBOL TABLE ENTRY 


SYM_PTR; 


mm 
2D 
a4 
oo 
Yo 


lee 
i INITIALIZE THE POINTER TO THE FIRST PATCH AREA IN THE LIST. 
TEMP_PTR = .PATSGL_PAL_LHD; 


1h-52 -Sep-1984 2 9: 9g: 4 VAX-11 Bliss-32 V4.0-742 
14-Sep-1984 5 DISKSVMSMASTER: CPATCH.SRCJPATIO.B32; fag 


Be Se Be Oe Oe Be Be Bt Oe Oe BH Se BH Ge Be Be Be Se Se Be Se Se FH FH SH Se Se Se Se Se eae Be SH Se Seas TH Se Se Se Se Se Se Se Se FH Se Se Se ee FH Se Se eases 


0-742 
CH.SR 


0| 
H ) 


| 
: 6 0 14 
; 638 0 ! SEARCH THE PATCH AREA LIST FOR A PATCH AREA WHICH INCLUDES THE EXPRESSION. | 
; 639 0 ' IF FOUND, THEN SEARCH THE SYMBOL TABLE FOR A CORRESPONDING SYMBOLIC NAME. 
; 640 0 ' IF THE EXPRESSION IS NOT WITHIN A PATCH AREA THEN OUTPUT IT AS AN ABSOLUTE 
; oe) 8 : VALUE. OTHERWISE, OUTPUT IT AS A SYMBOLIC NAME PLUS OFFSET. 
> 64 0 IF (.EXPR1 NEQ 0) ! PREVENT NULL PATCH AREA ADDRESS REPLACING 
3: 644 0 THEN 
; 645 0 EGIN 
; 646 0 WHILE .TEMP_PTR NEQA 0 
: 647 0 
: 648 0 4 BEGIN 
> 649 0 4 IF (.EXPR1 LEQU .TEMP_PTRCPALSL_END_ADRJ) AND 
; 650 0 5 (,EXPR1 GEQU .TEMP_PTRCPALSL_START_ADRJ) 
; 651 0 4 THEN 
; $26 30 5 BEGIN 
3; 65 30 5 PATSGL_SYMTBPTR = .PATSGL_SYMHEAD; 
> 654 30 5 SYM_PTR = PATSFIND_VAL(.ERPR1, FALSE); 
3 639 30 5 IF .EXPR2 EQL 0 | 
; 656 30 5 THEN 
; 657 30 5 PATSFAO_PUT(NAM_OFF_STG, 
; 658 30 5 .SYM_CHTOUNT(.SYM_PTR), SYM_NAME(.SYM_PTR), 
: 659 30 5 (.EXPR1-.SYM_VALUE(.SYM_PTRJ)) 
; 660 30 5 ELSE 
: 661 30 5 PATSFAO_PUT(NAM_OFF_RAN_STG 
; 662 3078 5 .SYM_CHCOUNT(.SYM_PTR), SYM_NAME(.SYM_PTR), 
; 66 30 5 (.EXPR1-.SYM_VALUE(.SYM_PTR)), 
; 664 30 5 .SYM_CHCOUNTT.SYM_PTR), SYM_NAME(.SYM_PTR), 
3; 665 30 5 ( EXPR2-.SYM_VALUE(.SYM_PTRY)); 
; 666 30 5 RETURN; 
; 667 30 4 END; 
; 668 30 4 TEMP_PTR = .TEMP_PTRCPALSL_FLINK]; 
: 669 30 3 END; 
; 670 30 2 END; 
; 671 3087 2 
; 67 3088 2 !++ 
: 67 3089 2 ! EXPRESSION DID NOT FALL WITHIN A PATCH AREA. THEREFORE, OUTPUT IT AS 
: 674 3090 2 ! AN ABSOLUTE VALUE. 
3 675 3091 2 !-- 
; 676 94 IF .EXPR2 EQL 0 
: 677 09 TH 
; 678 3094 PATSFAO_PUT(EXP_STG, .EXPR1) 
; 679 3095 ELSE 
3 $80 ? PATSFAO_PUT(RAN_STG, .EXPR1, .EXPR2); 
; 68 098 2 RETURN; 
; 68 099 2 
3; 684 3100 1 END; ! END OF PATSOUT_PAL_EXP 


PATSOUT_PAL_EXP, Save R2,R3,R4,R5,R6,R7 ; 2996 
RAPHE: : 
PATSGL_PAL_CHD, TEMP_PTR : 3051 | 


7] 

5 | 

bese -1984 00:06:01 VAX-11 Bliss-32 V4.0-742 Page 21) 

12-808 -1 3b 99:98 :9 DISKSVMSMASTER: CPATCH.SRCIJPATIO.B32;1 . (3) 

55 04 AC DQ 00017 MOVL  EXPR1, R5 ; 3059 ; 
66 1 8318 BEQL 4$ ; ’ 
54 D 01D 1$: TSTL TEMP_PTR : 3062 : 
é 1 Bost BEQL 4$ : . 
08 A4 D1 1 CMPL R5, 8(TEMP_PTR) 3; 3065 ; 
7 1A 000 ; BGTRU 3$ : F 
04 AG 5 D1 8 CMPL R5, 4(TEMP_PTR) : 3066 ‘ 
TA... B BLSSU 3$ : : 
00000000G EF 000000006 pF DO 0002D MOVL PATSGL_SYMHEAD, PATSGL_SYMTBPTR : 3069 3 
F D4 00038 CLRL -(SP) ; 3070 ; 
5 DD O003A PUSHL R5 ; F 
000000006 gE 9¢ 4 BR 78 CALLS #2, PATSFIND_VAL : : 
é D i MOVL RO. SYM_PTR ; : 
5 OD A2 aE 0046 MOVAB 13(R2) 3 3074 3 
08 AC OD 4 945 TSTL EXPR ; 3071 : 
11 ig 004D BNEQ My : : 
7E 55 08 4 C3 Q004F SUBL3 (SYM_PTR), RS, -(SP) 3; 3075 ; 
53 DD 00054 PUSHL R3 3; 3074 ; 
7E oc A2 9A 00056 MOVZBL 12¢(SYM_PTR), =(SP) : : 
56 DD O005A PUSHL R6 ; 3073 ; 
67 04 FB 0005C CALLS #4, PATSFAO_PUT 3; 3074 ; 
04 0005F RET : 3 
7E 08 AC 08 ag C3 00060 2$: SUBL3 8 (SYM_PTR), EXPR2, -(SP) ; 3081 : 
53 DD 00066 PUSHL R3 : 3080 ; 
7E 0C A2 9A 00068 MOVZBL 12(SYM_PTR), -(SP) : : 
7E 55 08 A C3 0006C SUBL 8(SYM_PTR), R5, -(SP) ; 3079 3 
53 dd 00071 PUSHL R3 ; 3080 : 
7E 0c A2 9A 00073 MOVZBL 12(SYM_PTR), =-(SP) : : 
OA A6 YF 00077 USHAB NAM_OFF_RAN_STG : 3077 : 
67 07 FB QOO7A CALLS a7, PATSFAO_PUT :; 3080 : 
04 0007D ET : 3068 $ 
54 64 D0 OQOO7E 3$: MOVL (TEMP_PTR), TEMP_PTR ; 3084 ; 
9A 11 00081 BRB 1$ : 3062 3 
08 AC D5 00083 4$: TSTL EXPR2 ; 3092 3 
09 12 00086 BNEQ 5$ 3 : 
55 DD 00088 PUSHL R5 3 3094 : 
EE A6 9F OOOBA PUSHAB EXP_STG i : 
67 02 FB 0008D CALLS #2, PATSFAO_PUT 3 : 
04 00090 RET 3 3 
08 AC DD 00091 5$: PUSHL EXPR2 ; 3096 : 
55 DD 00094 PUSHL R5 3 : 
F4 A6 OF 4484 PUSHAB RAN_STG : ; 
67 03 FB 00099 CALLS #3, PATSFAO_PUT : : 
04 0009C RET ; 3100 ; 
3; Routine Size: 157 bytes, Routine Base: _PATSCODE + O2EC : 
r 
} o 
| : 


FS | 
16-Sep-1984 00:06:01  VAX-11 Bliss-32 V4.0-742 Pa 2. 
1e=88p-1984 19:59:35 DI SKSVMSMASTERS CPATCH. SRCIPATIO.B32;1°°" (BD 


3 68 19) ! GLOBAL ROUTINE PATSCLOSEFILES : NOVALUE = ' CLOSE ALL OPEN FILES 
; 688 198 1 !4¢ 
; on? 108 ! FUNCTIONAL DESCRIPTION: 

; $3) 138 ! THIS ROUTINE CLOSES ALL THE OPEN FILES BEING USED BY PATCH. 

; 69 108 1 ! FORMAL PARAMETERS: 
3 €946 109 1! 
; 695 110 1! NONE 
; 696 ie 8 
; 697 16 1°! IMPLICIT INPUTS: 
; 698 jo} a 
; 9 M8 : ALL FABS AND RABS MUST HAVE BEEN INITIALIZED. 
; 701 133 1 ! IMPLICIT OUTPUTS: 

; 70 $1 1! 
: 70 118 1! NONE 
3; 704 3119 1! 

; 705 3120 1 ! ROUTINE VALUE: 
: 706 3121 1! 

; 707 3156 1 ! COMPLETION CODES: 

; 708 3125 1! 

; 709 3124 1! NONE 
; 710 3125 1! 
3 711 3126 1! SIDE EFFECTS: 
oor jb ae 
: 715 3128 1! ALL FILES ARE CLOSED. 
; 7146 31$2 1 7 IF ERRORS OCCUR, APPROPRIATE ERROR MESSAGES ARE OUTPUT TO THE 
2 7S Hs 01! JOURNAL FILE AND ‘'SYSSERROR'. 
; 716 13) 32 
: 717 3132 1 in. 
: 718 13 1 
: 719 134 $ BEGIN | 
; 720 135 
; 721 3136 LITERAL 
; 722 3137 START_OFF = 0, ' START VIR ADDR OFFSET 
s 723 3138 END_OFF = 1; ' END VIR ADDR OFFSET 
3: 724 3139 

: 725 3140 tee 
3 166 1°) CLOSE OUTPUT COMMAND FILE, IF IT WAS OPEN. 
; 728 128 IF (.,PATSGL_FLAGS AND PATSM_COMMAND) NEQ 0 ' IF /COMMAND WAS SPECIFIED 
3 193 144 THEN 
; 730 145 BEGIN 
3 731 146 PATSGL_ERRCODE = SCLOSE(FAB=PATSGL_COMF AB) ; ' CLOSE COMMAND FILE 
; rae er IF NOT” .PATSGL_ERRCODE | 
: 
3 ite 1) = SIGNAL (PAT$_CLOSEOUT,1,GETFILDSC(PATSGL_COMFAB) , .PATSGL_COMF ABCFABSL_STS],.PATSGL_COMFABLCFAB | 
; 736 151 

war 136 lee 

: A 137 CLOSE JOURNAL FILE, IF OPEN. | 
; 7640 155 IF (.PAT$GL_FLAGS AND PATSM_JOURNAL) NEQ 0 ' JF JOURNAL IS OPEN 
s 761 138 THEN 
: 742 15 BEGIN 


18-50 -Sep-1984 t 90: 9g: 9 VAX=11 Bliss-32 V4.0-742 oe 6 


F PATSCLOSEFILES | 


-EXTRN SYSSCLOSE, SYSSDASSGN 


000 -Sep-1984 DISKS$VMSMASTER: CPATCH. SRCIPATIO.B32; + 
5 743 158 PATSGL_ERRCODE = SCLOSE(FAB=PATSGL_JNLFAB); ! CLOSE JOURNAL FILE ; 
3 ree 138 Md NOT” .PATSGL_ERRCODE : 
: 246 161 te SIGNAL (PATS_CLOSEOUT,1,GETFILDSC(PATSGL_JNLFAB) , .PATSGL_JNLFABLFABSL_STSJ,.PATSGL_JNLFABLFAB ; 
CMe ott ie eed 
: 730 165 | CLOSE INPUT IMAGE FILE, IF OPEN. | 
; 138 16? 2 iF (.PATSGL_FLAGS AND PATS$M_INPUT) NEQ 0 ! IF INPUT IMAGE FILE IS OPEN | ; 
: HB 169 $Y pec | 
; ree 196 PATSGL_ERRCODE = SDASSGN(CHAN=.PATSGL_CHANUM) ; : 
: 136 71 IF NOT”. PATSGL_ERRCODE | ; 
: 758 158 SIGNAL (PAT$_CLOSEIN,1,GETFILDSC(PATSGL_OLDFAB) ,.PATSGL_ERRCODE,0); ; 
: 759 174 END; ; 
: 700 138 ++ : 
; r6¢ 179 | CLOSE OUTPUT IMAGE FILE, IF OPEN. : 
: 764 179 2 IF (.PATSGL_FLAGS AND PATSM_OUTPUT) NEQ 0 | IF OUTPUT IMAGE FILE IS OPEN | ; 
: 16 3181 en eeees | 
: 767 18 PATSGL_ERRCODE = SCLOSE(FAB=PATSGL_NEWF AB); ! CLOSE OUTPUT IMAGE FILE | ; 
; res eer 3 at -PATSGL_ERRCODE : 
: 270 3185 : - SIGNAL (PAT$_CLOSEOUT,1,GETFILDSC(PATSGL_NEWF AB) , .PATSGL_NEWFABLFABSL_STSJ,.PATSGL_NEWF ABLFAB | ; 
Aes 18 Pees | 
3 3; o¢ ° 
: 77 3189 i CLOSE OTHER MESSAGE CHANNELS. | : 
: 776 3191 2 $CLOSE(FAB=PATSGL_INPFAB); ! CLOSE INPUT COMMAND FILE : 
: 777 5198 2 $CLOSE (FAB=PATS$GL~OUTFAB) : i CLOSE OUTPUT INFORMATION FILE ; 
: 278 3195 2 SCLOSE(FAB=PATSGLERRFAB) i CLOSE ERROR FILE | ; 
: 780 3195 7 END; ! END 0 ; 
O7FC 00000 -ENTRY PATSCLOSEFILES, Save R2.R3.R4,R5,R6,R7.RB,~ ; 3101 ; 
SA 90000006 EF 9€ 00002 MOVAB RR tseL _NEWFAB, R10 : ; 
59 000 90006 i 9 00009 MOVAB PATS$GL~JNL : : 
28 900 006 F D 0010 MOVL #PATS CLOSEOUT, R8 ; | ; 
57 00 G EF 9€ 01 MOVAB PATSGC_C .R : | F 
26 00 0 G FF 9E 00 43 MOVAB PATSGL~FLAGS : | ; 
55 000 G6 00 9 99 MOVAB  LIBS$S ,R ; ; 
4 000000006 ai 9E 00 ( MOVAB ETEILDSC, R4 : : 
3 000000006 60 9€ 000 MOVAB SYSS$CLOSE. R : ; 
2 000000006 EF 3 O3A MOVAB PATS$GL_ERRCODE, R2 ; ; 
1D $ E 41 BLBC PATSGL-FLAGS, 1$ ; 3143 : 
DD 00044 PUSHL = RY > 3146 ; 
63 1 FB 00046 CALLS , SYSSCLOSE : : 


i 
16 gep VAX-11 Bliss=-32 V4.0-742 
14-Sep 71382 99: 98: ey DISKSVMSMASTER: CPATCH. SRCJPATIO.B32; fag 
5 D0 49 MOVL T$6L eB RRCOD 
é 5 4C BLBS PAtset 1 
A? 7D O004F MOVa PATSGL~ fone eed, =(SP) 
57 OD 033 PUSHL 7 
gi FB CALLS #1, GETFILDSC 
0 DD a PUSHL RO 
ON DD 0005A PUSHL #1 
: DD 0 C PUSHL R 
05 FB 3 CALLS #5, LIBSSIGNAL 
01 E1 00061 1$ BC 1, PATSGL_FLAGS, 2$ 
9 DD 00065 PUSHL 
oI FB 9067 CALLS 1. SYSSCLOSE 
D A MOVL ATSGL_ERRC 
4 8 0060 BLBS Baten _ERRCODE 
AS 7D 000 0 MOVQ _— PATS$GL AERREDDE 8 sp) 
59 DD 00074 PUSHL R 
01 FB 90076 CALLS #1, GETFILDSC 
0 DD 00079 PUSHL RO 
01 DD 00078 PUSHL #1 
58 0D 0007D PUSHL RB 
65 0S FB OO07F CALLS #5, LIBS$SIGNAL 
2D ry 02 £1 00082 2$ BBC #2. PATSGL FLAGS, 3$ 
000000006 EF DD 00086 PUSHL PATS$GL_CHANUM 
000000006 00 01 FD 0008¢ CALLS #1, sot ect ASSGN 
62 50 D0 0009 MOVL RO, PAT$GL_ERRCODE 
1A 62 E8 00096 BLBS PATSGL LERRCODE, 3$ 
ze D4 00099 CLRL = = (SP) 
62 DD 00098 PUSHL PATS$GL_ERRCODE 
000000006 EF 9F 0009D PUSHAB PATSGL- OLDFAB 
64 01 FB OOOA3 CALLS , GETFILDSC 
50 DD 000A6 PUSHL RO 
o1 DD 000A8 PUSHL 
000000006 8F DD OOOAA PUSHL #PAT$_CLOSEIN 
65 05 FB 000B0 CALLS #5, LIBSSIGNAL 
1D 66 03 £1 00083 3$: BBC "3 BATSCL _FLAGS, 4$ 
5A DD 00087 PUSHL R10 
63 or FB 000B9 CALLS i. SYSSCLOSE 
62 0 pO 000BC MOVL PATSGL ERRCODE 
12 62 €8 OO0OBF BLBS Patsee ERRTODE 
7E 08 AA ?D0 000C2 MOVa PATSGL ~cUFABSS, *S sp) 
5A DD 000C6 PUSHL R 
64 or FB 000C8 CALLS #1, GETFILDSC 
0 DD 000CB PUSHL RO 
gi DD O9¢D PUSHL #1 
8 DD OOOCF PUSHL 
5 05 FB 00001 CALLS L IBSSIGNAL 
000000006 Ff 9F 00004 4$: PUSHAB PATSGL INPF AB 
1 £B ODA CALLS SYSSCLOSE 
000000006 Ff OF Oop SH f$GL_OUTFAB 
1 FB OO0E CALLS #1, SYSSCLOSE 
000000006 Ff 9F OOOES PUSHAB PAfsGL RRFAB 
3 1 FB OOOEC CALLS , SYSSCLOSE 
04 OOOEF RET 


; Routine Size: 240 bytes, Routine Base: _PATSCODE + 0389 
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5 
V04= 1b-se0-19 1 9o 8st PS UMGMASTERSCPATCH SkcIPATIO.B32;1°%° (9 


un Time 36. 
lhe y fees 02:07.7 
Lines/CPU Min: 2 
awe Noe tig 38275 
penery Used: 225 pages 
Compilation Complete 


~ 
| 
78 196 1 END ! END OF PATIO 
78 3198 0 ELUDOM 
-EXTRN LIBSSIGNAL | 
PSECT SUMMARY 
Name Bytes Attributes | 
_PATSPLIT 76 NOVEC, oa bY RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(0) | 
=PATSCODE 1145 NOVEC,NOWR RD EXE,NOSHR, LCL, REL, hate 4 Sg batt te 
ABS . 0 NOVEC, NOURT * NORD * NOEXE, NOSHR, LCL, ABS, CON,NOPIC,ALIGN(QO) | 
Library Statistics 
ccoecece Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
_$255$DUA28: CSYSLIBILIB.L32;1 18619 21 0 1000 00:01.9 
COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE,/VARIANT:1/LIS=LIS$:PATIO/OBJ=OBJ$:PATIO MSRC$:PATIO/UPDATE=(ENH$: PATIO) 
Stee: 1145 code + 76 data bytes 
00:36.8 
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